Release 10.1A: OpenEdge Development:
Web Services

Creating the Web service

To create the Web service:

Create the AppObject:

' There is no communication with the WSA at this time Dim WS_OrderService As OrderService.OrderInfoObj WS_OrderService = New OrderService.OrderInfoObj( )

Call the connect method on the AppObject (session managed only):

' Connect to the Progress Session Managed Web Service WS_OrderService.Connect_OrderInfo("", "", "")

Note: Note that the value of the OrderInfoIDValue is extracted from the SOAP response header automatically by the interface. This value is then assigned to the OrderInfoIDValue member variable of the AppObject (WS_OrderService).